home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Digital Talk 8
/
Digital_Talk_08_1994-07-17_Digital_Talk_de_Side_D.d64
/
dir edi
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
5KB
|
209 lines
100 print"[147][158] tnt-disk-painter "
110 dim p$(8)
200 print""
210 printtab(3)"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
211 printtab(3)"[221] *** main menue *** [221]"
212 printtab(3)"[221] [221]"
213 printtab(3)"[221] 1.............load [221]"
214 printtab(3)"[221] 2.............save [221]"
215 printtab(3)"[221] 3.............edit [221]"
216 printtab(3)"[221] 4............paint [221]"
217 printtab(3)"[221] 5.............quit [221]"
218 printtab(3)"[221] [221]"
219 printtab(3)"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
220 get a$: a=val(a$)
230 on a gosub 500,700,300,900,1600
240 goto 200
300 rem *** edit ***
310 print""
311 printtab(5)"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]
312 [153][163]5)"(NULL) *** edit *** (NULL)
313 printtab(5)"[221] [221]
314 [153][163]5)"(NULL)1 ................ (NULL)
315 printtab(5)"[221]2 ................ [221]
316 [153][163]5)"(NULL)3 ................ (NULL)
317 printtab(5)"[221]4 ................ [221]
318 [153][163]5)"(NULL)5 ................ (NULL)
319 printtab(5)"[221]6 ................ [221]
320 [153][163]5)"(NULL)7 ................ (NULL)
321 printtab(5)"[221]8 ................ [221]
322 [153][163]5)"(NULL) (NULL)
323 printtab(5)"[221]_ = ende [221]
324 [153][163]5)"/tantantantantantantantantantantantantantantantantantantantanexp
330 poke214,8:print
331 for i=1 to 8
332 printtab(9)p$(i)
333 next
340 x = 0 : y = 0
350 a=1393+x+y*40:b=peek(a):pokea,b or 128
355 pokea,b and 255-128
360 get a$:if a$="" then 350
370 if a$="" then if y<7 then y=y+1:goto 350
371 if a$="[145]" then if y>0 then y=y-1:goto 350
372 if a$="" then if x<15 then x=x+1:goto 350
373 if a$="[157]" then if x>0 then x=x-1:goto 350
374 if a$=chr$(13) then x=15:goto 382
375 if a$="_" then 400
380 poke646,7:poke 648,192:print"[147]"a$:poke648,4
381 b=peek(49152)
382 if x=15 then x=-1:if y<7 then y=y+1
383 if x<15 then x=x+1
390 pokea,b:goto 350
400 open1,3
405 for i = 1 to 8
410 poke214,7+i:print:poke211,9
415 p$(i)=""
420 for j = 1 to 16
430 get#1,a$
435 p$(i)=p$(i)+a$
440 next:next:close1
445 gosub 1400
450 return
500 rem *** load ***
510 print""
511 printtab(9)"[176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174]
512 [153][163]9)"peek name: peek
513 printtab(9)"[173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][189]
520 [153]""[163]16);:[151]19,64:[133]a$:[151]19,0
530 a$[178][200](a$,16)
540 [159]1,8,0,a$
541 [132]1,o1
542 [132]1,o2
543 [132]1,o3
544 [132]1,o4
545 [132]1,o5
546 [132]1,o6
550 [129] i[178]1 [164] 8
560 p$(i)[178]""
570 [129] j[178]1 [164] 16
580 [161]#1,a$
590 p$(i)[178]p$(i)[170]a$
600 [130]:[130]:[160]1:[142]
700 [143] *** save ***
710 [153]""
711 [153][163]9)"orlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlen^
712 printtab(9)"[194] name: [194]
713 [153][163]9)"/lenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenexp
720 print""tab(16);:poke19,64:inputa$:poke19,0
730 a$=left$(a$,16)
740 open1,8,1,a$
741 print#1,o1
742 print#1,o2
743 print#1,o3
744 print#1,o4
745 print#1,o5
746 print#1,o6
750 for i=1 to 8
780 print#1,p$(i);
800 next:close1: return
900 rem *** paint ***
910 print""
911 printtab(7)"[176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174]"
912 printtab(7)"[194] paint-menue [194]"
913 printtab(7)"[194] [194]"
914 printtab(7)"[194] 1.........anfang [194]"
915 printtab(7)"[194] 2...........ende [194]"
916 printtab(7)"[194] 3.....hauptmenue [194]"
917 printtab(7)"[194] [194]"
918 printtab(7)"[173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][189]"
920 get a$:if a$="3" then 200
921 if a$="1" then 1300
922 if a$<>"2" then 920
930 open15,8,15,"ij":for t=1 to 1000:next:open1,8,2,"#"
931 gosub 1200
932 print#15,"u1 2 0"tr;se
933 print#1,chr$(0)chr$(255);
934 for i=1 to 8
935 print#1,chr$(o1+o2*128+o3*64+o4*32+o5*16)chr$(18)chr$(0);
936 print#1,left$(p$(i)+"[160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160]",16);
940 for j=1 to 9:print#1,chr$(0);:next
941 print#1,chr$(o6and255)chr$(o6/256)chr$(0)chr$(0);
942 next
943 print#15,"u2 2 0"tr;se
950 rem *** letzter eintrag suchen ***
951 t=18:s=1
960 print#15,"u1 2 0"t;s
970 get#1,a$:get#1,b$
980 if asc(a$+chr$(0)) =0 then 1000
990 t=asc(a$+chr$(0)):s=asc(b$+chr$(0))
995 goto 960
1000 print#15,"u1 2 0"t;s
1010 print#1,chr$(tr)chr$(se);
1020 print#15,"u2 2 0"t;s
1030 close1:close15:goto 200
1200 rem *** frei stelle suchen ***
1210 open2,8,3,"#"
1220 print#15,"u1 3 0 18 0"
1230 print#15,"b-a 0 18 0"
1240 input#15,a,b$,tr,se
1245 printa,b$,tr,se
1250 print#15,"u2 3 0 18 0"
1260 close2
1265 if se = 0 then 1210
1270 if tr <> 18 then end
1275 print#15,"b-a 0"tr;se
1280 return
1300 rem *** anfang ***
1305 open15,8,15,"ij":for t=1 to 1000:next:open1,8,2,"#"
1310 gosub 1200
1320 print#15,"u1 2 0 18 1"
1330 print#15,"u2 2 0";tr;se
1350 print#15,"u1 2 0 18 1"
1352 print#1,chr$(tr)chr$(se);
1353 printtr,se
1354 for i=1 to 8
1356 print#1,chr$(o1+o2*128+o3*64+o4*32+o5*16)chr$(18)chr$(0);
1358 print#1,left$(p$(i)+"[160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160]",16);
1360 for j=1 to 9:print#1,chr$(0);:next
1362 print#1,chr$(o6and255)chr$(o6/256)chr$(0)chr$(0);
1364 next
1365 print#15,"b-p 2 0"
1366 print#1,chr$(tr)chr$(se);
1370 print#15,"u2 2 0 18 1"
1380 close 1:close 15:goto 200
1400 rem *** optionen ***
1410 print""
1420 printtab(7)"[176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174]"
1421 printtab(7)"[194] *** optionen *** [194]"
1422 printtab(7)"[194] [194]"
1423 printtab(7)"[194] 0 del 5 ??? 10 ??? [194]"
1424 printtab(7)"[194] 1 seq 6 ??? 11 ??? [194]"
1425 printtab(7)"[194] 2 prg 7 ??? 12 ??? [194]"
1426 printtab(7)"[194] 3 usr 8 ??? 13 ??? [194]"
1427 printtab(7)"[194] 4 ??? 9 ??? 14 ??? [194]"
1428 printtab(7)"[194] 15 ??? [194]"
1429 printtab(7)"[194] type: [194]"
1430 printtab(7)"[194] open/close(0-1): [194]"
1431 printtab(7)"[194] protect (0/1): [194]"
1432 printtab(7)"[194] ??? (0/1): [194]"
1433 printtab(7)"[194] ??? (0/1): [194]"
1434 printtab(7)"[194] lenght(0-65535): [194]"
1435 printtab(7)"[194] [194]"
1436 printtab(7)"[173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][189]"
1440 poke214,16:print:poke211,15:poke19,64:printo1
1450 poke214,16:print:poke211,15:poke19,64:inputa$:poke19,0:o1=val(a$)
1460 poke214,17:print:poke211,26:poke19,64:printo2
1470 poke214,17:print:poke211,26:poke19,64:inputa$:poke19,0:o2=val(a$)
1480 poke214,18:print:poke211,26:poke19,64:printo3
1490 poke214,18:print:poke211,26:poke19,64:inputa$:poke19,0:o3=val(a$)
1500 poke214,19:print:poke211,26:poke19,64:printo4
1510 poke214,19:print:poke211,26:poke19,64:inputa$:poke19,0:o4=val(a$)
1520 poke214,20:print:poke211,26:poke19,64:printo5
1530 poke214,20:print:poke211,26:poke19,64:inputa$:poke19,0:o5=val(a$)
1540 poke214,21:print:poke211,26:poke19,64:printo6
1550 poke214,21:print:poke211,26:poke19,64:inputa$:poke19,0:o6=val(a$)
1560 ifo1+o2*128+o3*64+o4*32+o5*16>255oro1+o2*128+o3*64+o4*32+o5*16<0then1440
1570 ifo6>65535 or o6<0 then 1440
1580 return
1600 rem *** ende ***
1610 for i=1 to 50
1620 x=rnd(0)*19:y=rnd(1)*19:poke646,rnd(0)*16
1630 poke214,y:print:poke211,x
1640 printtab(x)"[176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174]
1660 [153][163]x)"peekthis little prg is peek
1680 printtab(x)"[194]from tnt-soft [194]
1700 [153][163]x)"peekbye ! bye ! bye ! peek
1720 printtab(x)"[173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][189]
1730 [130]
1740 [151]56325,0:[153]"load":[151]56325,50